home *** CD-ROM | disk | FTP | other *** search
- /*
- \funcref{finddef}{int finddef (\params)}
- {
- {char} {*s} {identifier to search for}
- }
- {index in {\em defined} array if identifier found, or {\em -1} if not
- found}
- {}
- {}
- {finddef.c}
- {
-
- Function {\em finndef()} attempts to find an identifier {\em s} in the
- array of defined identifiers. The {\em defined} array consists of
- structs, holding the redefined identifier (field {\em ident}) and the
- redefinition string (field {\em redef}).
-
- An index into {\em defined} is returned; at {\em defined[ret].redef}
- the redefinition string can be found. If the identifier is not found in
- {\em redef}, {\em --1} is returned.
-
- }
- */
-
- #include "icm-pp.h"
-
- int finddef (s)
- char *s;
- {
- register int
- i;
-
- for (i = 0; i < ndefined; i++)
- if (! strcmp (defined [i].ident, lexbuf))
- return (i);
-
- return (-1);
- }
-